home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_A.d64 / window-plotter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  557b  |  23 lines
  1. 10 poke53281,7:poke53280,2:print"[147]"chr$(14):rem bildschirm initialisieren
  2. 11 rem
  3. 12 rem koordinaten
  4. 13 rem
  5. 14 ax=10:ay=20
  6. 15 cx=20:cy=10
  7. 16 bx=cx:by=ay
  8. 17 dx=ax:dy=cy
  9. 18 rem
  10. 20 poke211,ax:poke214,ay:sys58732:print"[173]":poke211,bx:poke214,by:sys58732
  11. 21 print"[189]":poke211,cx:poke214,cy:sys58732:print"[174]":poke211,dx:poke214,dy
  12. 22 sys58732:print"[176]"
  13. 33 rem
  14. 34 forg=ax+1tobx-1:poke211,g:poke214,ay:sys58732:print"[192]":poke211,g:poke214,cy
  15. 35 sys58732:print"[192]":next:forg=dy+1toay-1:poke211,ax:poke214,g:sys58732
  16. 36 print"[221]":poke211,bx:poke214,g:sys58732:print"[221]":next
  17. 37 rem
  18. 38 poke211,12:poke214,14:sys58732:print"[215]indows":printtab(12)"auch in"
  19. 39 printtab(12)"[194][193][211][201][195] !"
  20. 40 rem
  21. 41 geta$:ifa$=""then41
  22. 42 print"[147]":list
  23.